      module mo_adjrxt
      private
      public :: adjrxt
      contains
      subroutine adjrxt( rate, inv, m, ncol, nlev )
      use shr_kind_mod, only : r8 => shr_kind_r8
      use chem_mods, only : nfs, rxntot
      implicit none
!--------------------------------------------------------------------
! ... dummy arguments
!--------------------------------------------------------------------
      integer, intent(in) :: ncol, nlev
      real(r8), intent(in) :: inv(ncol,nlev,nfs)
      real(r8), intent(in) :: m(ncol,nlev)
      real(r8), intent(inout) :: rate(ncol,nlev,rxntot)
      rate(:,:,170) = rate(:,:,170) * inv(:,:, 3)
      rate(:,:,171) = rate(:,:,171) * inv(:,:, 2)
      rate(:,:,174) = rate(:,:,174) * inv(:,:, 1)
      rate(:,:,191) = rate(:,:,191) * inv(:,:, 1)
      rate(:,:,198) = rate(:,:,198) * inv(:,:, 2)
      rate(:,:,201) = rate(:,:,201) * inv(:,:, 1)
      rate(:,:,209) = rate(:,:,209) * inv(:,:, 1)
      rate(:,:,212) = rate(:,:,212) * inv(:,:, 1)
      rate(:,:,213) = rate(:,:,213) * inv(:,:, 1)
      rate(:,:,214) = rate(:,:,214) * inv(:,:, 1)
      rate(:,:,216) = rate(:,:,216) * inv(:,:, 1)
      rate(:,:,217) = rate(:,:,217) * inv(:,:, 1)
      rate(:,:,232) = rate(:,:,232) * inv(:,:, 1)
      rate(:,:,252) = rate(:,:,252) * inv(:,:, 1)
      rate(:,:,253) = rate(:,:,253) * inv(:,:, 1)
      rate(:,:,263) = rate(:,:,263) * inv(:,:, 1)
      rate(:,:,309) = rate(:,:,309) * inv(:,:, 1)
      rate(:,:,310) = rate(:,:,310) * inv(:,:, 1)
      rate(:,:,321) = rate(:,:,321) * inv(:,:, 1)
      rate(:,:,322) = rate(:,:,322) * inv(:,:, 1)
      rate(:,:,323) = rate(:,:,323) * inv(:,:, 1)
      rate(:,:,345) = rate(:,:,345) * inv(:,:, 2)
      rate(:,:,351) = rate(:,:,351) * inv(:,:, 1)
      rate(:,:,352) = rate(:,:,352) * inv(:,:, 1)
      rate(:,:,353) = rate(:,:,353) * inv(:,:, 1)
      rate(:,:,373) = rate(:,:,373) * inv(:,:, 1)
      rate(:,:,399) = rate(:,:,399) * inv(:,:, 1)
      rate(:,:,407) = rate(:,:,407) * inv(:,:, 1)
      rate(:,:,408) = rate(:,:,408) * inv(:,:, 1)
      rate(:,:,437) = rate(:,:,437) * inv(:,:, 2)
      rate(:,:,438) = rate(:,:,438) * inv(:,:, 2)
      rate(:,:,439) = rate(:,:,439) * inv(:,:, 2)
      rate(:,:,440) = rate(:,:,440) * inv(:,:, 2)
      rate(:,:,441) = rate(:,:,441) * inv(:,:, 2)
      rate(:,:,442) = rate(:,:,442) * inv(:,:, 2)
      rate(:,:,443) = rate(:,:,443) * inv(:,:, 2)
      rate(:,:,444) = rate(:,:,444) * inv(:,:, 2)
      rate(:,:,558) = rate(:,:,558) * inv(:,:, 1)
      rate(:,:,561) = rate(:,:,561) * inv(:,:, 1)
      rate(:,:,564) = rate(:,:,564) * inv(:,:, 1)
      rate(:,:,571) = rate(:,:,571) * inv(:,:, 1)
      rate(:,:,576) = rate(:,:,576) * inv(:,:, 1)
      rate(:,:,685) = rate(:,:,685) * inv(:,:, 1)
      rate(:,:,686) = rate(:,:,686) * inv(:,:, 1)
      rate(:,:,687) = rate(:,:,687) * inv(:,:, 1)
      rate(:,:,791) = rate(:,:,791) * inv(:,:, 1)
      rate(:,:,792) = rate(:,:,792) * inv(:,:, 1)
      rate(:,:,793) = rate(:,:,793) * inv(:,:, 1)
      rate(:,:,798) = rate(:,:,798) * inv(:,:, 2)
      rate(:,:,804) = rate(:,:,804) * inv(:,:, 2)
      rate(:,:,175) = rate(:,:,175) * inv(:,:, 2) * inv(:,:, 1)
      rate(:,:,181) = rate(:,:,181) * inv(:,:, 2) * inv(:,:, 1)
      rate(:,:,168) = rate(:,:,168) * m(:,:)
      rate(:,:,169) = rate(:,:,169) * m(:,:)
      rate(:,:,172) = rate(:,:,172) * m(:,:)
      rate(:,:,173) = rate(:,:,173) * m(:,:)
      rate(:,:,174) = rate(:,:,174) * m(:,:)
      rate(:,:,176) = rate(:,:,176) * m(:,:)
      rate(:,:,177) = rate(:,:,177) * m(:,:)
      rate(:,:,178) = rate(:,:,178) * m(:,:)
      rate(:,:,179) = rate(:,:,179) * m(:,:)
      rate(:,:,180) = rate(:,:,180) * m(:,:)
      rate(:,:,182) = rate(:,:,182) * m(:,:)
      rate(:,:,183) = rate(:,:,183) * m(:,:)
      rate(:,:,184) = rate(:,:,184) * m(:,:)
      rate(:,:,185) = rate(:,:,185) * m(:,:)
      rate(:,:,186) = rate(:,:,186) * m(:,:)
      rate(:,:,187) = rate(:,:,187) * m(:,:)
      rate(:,:,188) = rate(:,:,188) * m(:,:)
      rate(:,:,189) = rate(:,:,189) * m(:,:)
      rate(:,:,190) = rate(:,:,190) * m(:,:)
      rate(:,:,191) = rate(:,:,191) * m(:,:)
      rate(:,:,192) = rate(:,:,192) * m(:,:)
      rate(:,:,193) = rate(:,:,193) * m(:,:)
      rate(:,:,194) = rate(:,:,194) * m(:,:)
      rate(:,:,195) = rate(:,:,195) * m(:,:)
      rate(:,:,196) = rate(:,:,196) * m(:,:)
      rate(:,:,197) = rate(:,:,197) * m(:,:)
      rate(:,:,199) = rate(:,:,199) * m(:,:)
      rate(:,:,200) = rate(:,:,200) * m(:,:)
      rate(:,:,201) = rate(:,:,201) * m(:,:)
      rate(:,:,202) = rate(:,:,202) * m(:,:)
      rate(:,:,203) = rate(:,:,203) * m(:,:)
      rate(:,:,204) = rate(:,:,204) * m(:,:)
      rate(:,:,205) = rate(:,:,205) * m(:,:)
      rate(:,:,206) = rate(:,:,206) * m(:,:)
      rate(:,:,207) = rate(:,:,207) * m(:,:)
      rate(:,:,208) = rate(:,:,208) * m(:,:)
      rate(:,:,209) = rate(:,:,209) * m(:,:)
      rate(:,:,210) = rate(:,:,210) * m(:,:)
      rate(:,:,211) = rate(:,:,211) * m(:,:)
      rate(:,:,212) = rate(:,:,212) * m(:,:)
      rate(:,:,213) = rate(:,:,213) * m(:,:)
      rate(:,:,214) = rate(:,:,214) * m(:,:)
      rate(:,:,215) = rate(:,:,215) * m(:,:)
      rate(:,:,218) = rate(:,:,218) * m(:,:)
      rate(:,:,219) = rate(:,:,219) * m(:,:)
      rate(:,:,220) = rate(:,:,220) * m(:,:)
      rate(:,:,221) = rate(:,:,221) * m(:,:)
      rate(:,:,222) = rate(:,:,222) * m(:,:)
      rate(:,:,223) = rate(:,:,223) * m(:,:)
      rate(:,:,224) = rate(:,:,224) * m(:,:)
      rate(:,:,225) = rate(:,:,225) * m(:,:)
      rate(:,:,226) = rate(:,:,226) * m(:,:)
      rate(:,:,227) = rate(:,:,227) * m(:,:)
      rate(:,:,228) = rate(:,:,228) * m(:,:)
      rate(:,:,229) = rate(:,:,229) * m(:,:)
      rate(:,:,230) = rate(:,:,230) * m(:,:)
      rate(:,:,231) = rate(:,:,231) * m(:,:)
      rate(:,:,232) = rate(:,:,232) * m(:,:)
      rate(:,:,233) = rate(:,:,233) * m(:,:)
      rate(:,:,234) = rate(:,:,234) * m(:,:)
      rate(:,:,235) = rate(:,:,235) * m(:,:)
      rate(:,:,236) = rate(:,:,236) * m(:,:)
      rate(:,:,237) = rate(:,:,237) * m(:,:)
      rate(:,:,238) = rate(:,:,238) * m(:,:)
      rate(:,:,239) = rate(:,:,239) * m(:,:)
      rate(:,:,240) = rate(:,:,240) * m(:,:)
      rate(:,:,241) = rate(:,:,241) * m(:,:)
      rate(:,:,242) = rate(:,:,242) * m(:,:)
      rate(:,:,243) = rate(:,:,243) * m(:,:)
      rate(:,:,244) = rate(:,:,244) * m(:,:)
      rate(:,:,245) = rate(:,:,245) * m(:,:)
      rate(:,:,246) = rate(:,:,246) * m(:,:)
      rate(:,:,247) = rate(:,:,247) * m(:,:)
      rate(:,:,248) = rate(:,:,248) * m(:,:)
      rate(:,:,249) = rate(:,:,249) * m(:,:)
      rate(:,:,250) = rate(:,:,250) * m(:,:)
      rate(:,:,251) = rate(:,:,251) * m(:,:)
      rate(:,:,252) = rate(:,:,252) * m(:,:)
      rate(:,:,254) = rate(:,:,254) * m(:,:)
      rate(:,:,255) = rate(:,:,255) * m(:,:)
      rate(:,:,256) = rate(:,:,256) * m(:,:)
      rate(:,:,257) = rate(:,:,257) * m(:,:)
      rate(:,:,258) = rate(:,:,258) * m(:,:)
      rate(:,:,259) = rate(:,:,259) * m(:,:)
      rate(:,:,260) = rate(:,:,260) * m(:,:)
      rate(:,:,261) = rate(:,:,261) * m(:,:)
      rate(:,:,262) = rate(:,:,262) * m(:,:)
      rate(:,:,263) = rate(:,:,263) * m(:,:)
      rate(:,:,264) = rate(:,:,264) * m(:,:)
      rate(:,:,265) = rate(:,:,265) * m(:,:)
      rate(:,:,266) = rate(:,:,266) * m(:,:)
      rate(:,:,267) = rate(:,:,267) * m(:,:)
      rate(:,:,268) = rate(:,:,268) * m(:,:)
      rate(:,:,269) = rate(:,:,269) * m(:,:)
      rate(:,:,270) = rate(:,:,270) * m(:,:)
      rate(:,:,271) = rate(:,:,271) * m(:,:)
      rate(:,:,272) = rate(:,:,272) * m(:,:)
      rate(:,:,273) = rate(:,:,273) * m(:,:)
      rate(:,:,274) = rate(:,:,274) * m(:,:)
      rate(:,:,275) = rate(:,:,275) * m(:,:)
      rate(:,:,276) = rate(:,:,276) * m(:,:)
      rate(:,:,277) = rate(:,:,277) * m(:,:)
      rate(:,:,278) = rate(:,:,278) * m(:,:)
      rate(:,:,279) = rate(:,:,279) * m(:,:)
      rate(:,:,280) = rate(:,:,280) * m(:,:)
      rate(:,:,281) = rate(:,:,281) * m(:,:)
      rate(:,:,282) = rate(:,:,282) * m(:,:)
      rate(:,:,283) = rate(:,:,283) * m(:,:)
      rate(:,:,284) = rate(:,:,284) * m(:,:)
      rate(:,:,285) = rate(:,:,285) * m(:,:)
      rate(:,:,286) = rate(:,:,286) * m(:,:)
      rate(:,:,287) = rate(:,:,287) * m(:,:)
      rate(:,:,288) = rate(:,:,288) * m(:,:)
      rate(:,:,289) = rate(:,:,289) * m(:,:)
      rate(:,:,290) = rate(:,:,290) * m(:,:)
      rate(:,:,291) = rate(:,:,291) * m(:,:)
      rate(:,:,292) = rate(:,:,292) * m(:,:)
      rate(:,:,293) = rate(:,:,293) * m(:,:)
      rate(:,:,294) = rate(:,:,294) * m(:,:)
      rate(:,:,295) = rate(:,:,295) * m(:,:)
      rate(:,:,296) = rate(:,:,296) * m(:,:)
      rate(:,:,297) = rate(:,:,297) * m(:,:)
      rate(:,:,298) = rate(:,:,298) * m(:,:)
      rate(:,:,299) = rate(:,:,299) * m(:,:)
      rate(:,:,300) = rate(:,:,300) * m(:,:)
      rate(:,:,301) = rate(:,:,301) * m(:,:)
      rate(:,:,302) = rate(:,:,302) * m(:,:)
      rate(:,:,303) = rate(:,:,303) * m(:,:)
      rate(:,:,304) = rate(:,:,304) * m(:,:)
      rate(:,:,305) = rate(:,:,305) * m(:,:)
      rate(:,:,306) = rate(:,:,306) * m(:,:)
      rate(:,:,307) = rate(:,:,307) * m(:,:)
      rate(:,:,308) = rate(:,:,308) * m(:,:)
      rate(:,:,309) = rate(:,:,309) * m(:,:)
      rate(:,:,310) = rate(:,:,310) * m(:,:)
      rate(:,:,311) = rate(:,:,311) * m(:,:)
      rate(:,:,312) = rate(:,:,312) * m(:,:)
      rate(:,:,313) = rate(:,:,313) * m(:,:)
      rate(:,:,315) = rate(:,:,315) * m(:,:)
      rate(:,:,316) = rate(:,:,316) * m(:,:)
      rate(:,:,317) = rate(:,:,317) * m(:,:)
      rate(:,:,318) = rate(:,:,318) * m(:,:)
      rate(:,:,319) = rate(:,:,319) * m(:,:)
      rate(:,:,320) = rate(:,:,320) * m(:,:)
      rate(:,:,321) = rate(:,:,321) * m(:,:)
      rate(:,:,322) = rate(:,:,322) * m(:,:)
      rate(:,:,323) = rate(:,:,323) * m(:,:)
      rate(:,:,324) = rate(:,:,324) * m(:,:)
      rate(:,:,325) = rate(:,:,325) * m(:,:)
      rate(:,:,326) = rate(:,:,326) * m(:,:)
      rate(:,:,327) = rate(:,:,327) * m(:,:)
      rate(:,:,328) = rate(:,:,328) * m(:,:)
      rate(:,:,329) = rate(:,:,329) * m(:,:)
      rate(:,:,330) = rate(:,:,330) * m(:,:)
      rate(:,:,331) = rate(:,:,331) * m(:,:)
      rate(:,:,332) = rate(:,:,332) * m(:,:)
      rate(:,:,333) = rate(:,:,333) * m(:,:)
      rate(:,:,334) = rate(:,:,334) * m(:,:)
      rate(:,:,335) = rate(:,:,335) * m(:,:)
      rate(:,:,336) = rate(:,:,336) * m(:,:)
      rate(:,:,337) = rate(:,:,337) * m(:,:)
      rate(:,:,338) = rate(:,:,338) * m(:,:)
      rate(:,:,339) = rate(:,:,339) * m(:,:)
      rate(:,:,340) = rate(:,:,340) * m(:,:)
      rate(:,:,341) = rate(:,:,341) * m(:,:)
      rate(:,:,342) = rate(:,:,342) * m(:,:)
      rate(:,:,343) = rate(:,:,343) * m(:,:)
      rate(:,:,346) = rate(:,:,346) * m(:,:)
      rate(:,:,347) = rate(:,:,347) * m(:,:)
      rate(:,:,348) = rate(:,:,348) * m(:,:)
      rate(:,:,349) = rate(:,:,349) * m(:,:)
      rate(:,:,350) = rate(:,:,350) * m(:,:)
      rate(:,:,351) = rate(:,:,351) * m(:,:)
      rate(:,:,352) = rate(:,:,352) * m(:,:)
      rate(:,:,354) = rate(:,:,354) * m(:,:)
      rate(:,:,355) = rate(:,:,355) * m(:,:)
      rate(:,:,356) = rate(:,:,356) * m(:,:)
      rate(:,:,357) = rate(:,:,357) * m(:,:)
      rate(:,:,358) = rate(:,:,358) * m(:,:)
      rate(:,:,359) = rate(:,:,359) * m(:,:)
      rate(:,:,360) = rate(:,:,360) * m(:,:)
      rate(:,:,361) = rate(:,:,361) * m(:,:)
      rate(:,:,362) = rate(:,:,362) * m(:,:)
      rate(:,:,363) = rate(:,:,363) * m(:,:)
      rate(:,:,364) = rate(:,:,364) * m(:,:)
      rate(:,:,365) = rate(:,:,365) * m(:,:)
      rate(:,:,366) = rate(:,:,366) * m(:,:)
      rate(:,:,367) = rate(:,:,367) * m(:,:)
      rate(:,:,368) = rate(:,:,368) * m(:,:)
      rate(:,:,369) = rate(:,:,369) * m(:,:)
      rate(:,:,370) = rate(:,:,370) * m(:,:)
      rate(:,:,371) = rate(:,:,371) * m(:,:)
      rate(:,:,372) = rate(:,:,372) * m(:,:)
      rate(:,:,373) = rate(:,:,373) * m(:,:)
      rate(:,:,374) = rate(:,:,374) * m(:,:)
      rate(:,:,375) = rate(:,:,375) * m(:,:)
      rate(:,:,376) = rate(:,:,376) * m(:,:)
      rate(:,:,377) = rate(:,:,377) * m(:,:)
      rate(:,:,378) = rate(:,:,378) * m(:,:)
      rate(:,:,379) = rate(:,:,379) * m(:,:)
      rate(:,:,380) = rate(:,:,380) * m(:,:)
      rate(:,:,381) = rate(:,:,381) * m(:,:)
      rate(:,:,382) = rate(:,:,382) * m(:,:)
      rate(:,:,383) = rate(:,:,383) * m(:,:)
      rate(:,:,384) = rate(:,:,384) * m(:,:)
      rate(:,:,386) = rate(:,:,386) * m(:,:)
      rate(:,:,387) = rate(:,:,387) * m(:,:)
      rate(:,:,388) = rate(:,:,388) * m(:,:)
      rate(:,:,389) = rate(:,:,389) * m(:,:)
      rate(:,:,390) = rate(:,:,390) * m(:,:)
      rate(:,:,391) = rate(:,:,391) * m(:,:)
      rate(:,:,392) = rate(:,:,392) * m(:,:)
      rate(:,:,393) = rate(:,:,393) * m(:,:)
      rate(:,:,394) = rate(:,:,394) * m(:,:)
      rate(:,:,395) = rate(:,:,395) * m(:,:)
      rate(:,:,396) = rate(:,:,396) * m(:,:)
      rate(:,:,397) = rate(:,:,397) * m(:,:)
      rate(:,:,398) = rate(:,:,398) * m(:,:)
      rate(:,:,399) = rate(:,:,399) * m(:,:)
      rate(:,:,400) = rate(:,:,400) * m(:,:)
      rate(:,:,401) = rate(:,:,401) * m(:,:)
      rate(:,:,402) = rate(:,:,402) * m(:,:)
      rate(:,:,403) = rate(:,:,403) * m(:,:)
      rate(:,:,404) = rate(:,:,404) * m(:,:)
      rate(:,:,405) = rate(:,:,405) * m(:,:)
      rate(:,:,406) = rate(:,:,406) * m(:,:)
      rate(:,:,407) = rate(:,:,407) * m(:,:)
      rate(:,:,409) = rate(:,:,409) * m(:,:)
      rate(:,:,410) = rate(:,:,410) * m(:,:)
      rate(:,:,411) = rate(:,:,411) * m(:,:)
      rate(:,:,412) = rate(:,:,412) * m(:,:)
      rate(:,:,413) = rate(:,:,413) * m(:,:)
      rate(:,:,414) = rate(:,:,414) * m(:,:)
      rate(:,:,415) = rate(:,:,415) * m(:,:)
      rate(:,:,416) = rate(:,:,416) * m(:,:)
      rate(:,:,417) = rate(:,:,417) * m(:,:)
      rate(:,:,418) = rate(:,:,418) * m(:,:)
      rate(:,:,419) = rate(:,:,419) * m(:,:)
      rate(:,:,420) = rate(:,:,420) * m(:,:)
      rate(:,:,421) = rate(:,:,421) * m(:,:)
      rate(:,:,422) = rate(:,:,422) * m(:,:)
      rate(:,:,423) = rate(:,:,423) * m(:,:)
      rate(:,:,424) = rate(:,:,424) * m(:,:)
      rate(:,:,425) = rate(:,:,425) * m(:,:)
      rate(:,:,426) = rate(:,:,426) * m(:,:)
      rate(:,:,427) = rate(:,:,427) * m(:,:)
      rate(:,:,431) = rate(:,:,431) * m(:,:)
      rate(:,:,432) = rate(:,:,432) * m(:,:)
      rate(:,:,433) = rate(:,:,433) * m(:,:)
      rate(:,:,445) = rate(:,:,445) * m(:,:)
      rate(:,:,446) = rate(:,:,446) * m(:,:)
      rate(:,:,447) = rate(:,:,447) * m(:,:)
      rate(:,:,449) = rate(:,:,449) * m(:,:)
      rate(:,:,450) = rate(:,:,450) * m(:,:)
      rate(:,:,451) = rate(:,:,451) * m(:,:)
      rate(:,:,453) = rate(:,:,453) * m(:,:)
      rate(:,:,454) = rate(:,:,454) * m(:,:)
      rate(:,:,455) = rate(:,:,455) * m(:,:)
      rate(:,:,456) = rate(:,:,456) * m(:,:)
      rate(:,:,457) = rate(:,:,457) * m(:,:)
      rate(:,:,458) = rate(:,:,458) * m(:,:)
      rate(:,:,460) = rate(:,:,460) * m(:,:)
      rate(:,:,461) = rate(:,:,461) * m(:,:)
      rate(:,:,462) = rate(:,:,462) * m(:,:)
      rate(:,:,464) = rate(:,:,464) * m(:,:)
      rate(:,:,465) = rate(:,:,465) * m(:,:)
      rate(:,:,467) = rate(:,:,467) * m(:,:)
      rate(:,:,468) = rate(:,:,468) * m(:,:)
      rate(:,:,470) = rate(:,:,470) * m(:,:)
      rate(:,:,471) = rate(:,:,471) * m(:,:)
      rate(:,:,472) = rate(:,:,472) * m(:,:)
      rate(:,:,473) = rate(:,:,473) * m(:,:)
      rate(:,:,474) = rate(:,:,474) * m(:,:)
      rate(:,:,475) = rate(:,:,475) * m(:,:)
      rate(:,:,476) = rate(:,:,476) * m(:,:)
      rate(:,:,477) = rate(:,:,477) * m(:,:)
      rate(:,:,478) = rate(:,:,478) * m(:,:)
      rate(:,:,479) = rate(:,:,479) * m(:,:)
      rate(:,:,480) = rate(:,:,480) * m(:,:)
      rate(:,:,482) = rate(:,:,482) * m(:,:)
      rate(:,:,483) = rate(:,:,483) * m(:,:)
      rate(:,:,485) = rate(:,:,485) * m(:,:)
      rate(:,:,486) = rate(:,:,486) * m(:,:)
      rate(:,:,487) = rate(:,:,487) * m(:,:)
      rate(:,:,488) = rate(:,:,488) * m(:,:)
      rate(:,:,489) = rate(:,:,489) * m(:,:)
      rate(:,:,490) = rate(:,:,490) * m(:,:)
      rate(:,:,491) = rate(:,:,491) * m(:,:)
      rate(:,:,492) = rate(:,:,492) * m(:,:)
      rate(:,:,493) = rate(:,:,493) * m(:,:)
      rate(:,:,494) = rate(:,:,494) * m(:,:)
      rate(:,:,496) = rate(:,:,496) * m(:,:)
      rate(:,:,497) = rate(:,:,497) * m(:,:)
      rate(:,:,498) = rate(:,:,498) * m(:,:)
      rate(:,:,500) = rate(:,:,500) * m(:,:)
      rate(:,:,502) = rate(:,:,502) * m(:,:)
      rate(:,:,503) = rate(:,:,503) * m(:,:)
      rate(:,:,504) = rate(:,:,504) * m(:,:)
      rate(:,:,505) = rate(:,:,505) * m(:,:)
      rate(:,:,506) = rate(:,:,506) * m(:,:)
      rate(:,:,507) = rate(:,:,507) * m(:,:)
      rate(:,:,508) = rate(:,:,508) * m(:,:)
      rate(:,:,509) = rate(:,:,509) * m(:,:)
      rate(:,:,510) = rate(:,:,510) * m(:,:)
      rate(:,:,511) = rate(:,:,511) * m(:,:)
      rate(:,:,512) = rate(:,:,512) * m(:,:)
      rate(:,:,513) = rate(:,:,513) * m(:,:)
      rate(:,:,514) = rate(:,:,514) * m(:,:)
      rate(:,:,515) = rate(:,:,515) * m(:,:)
      rate(:,:,516) = rate(:,:,516) * m(:,:)
      rate(:,:,517) = rate(:,:,517) * m(:,:)
      rate(:,:,518) = rate(:,:,518) * m(:,:)
      rate(:,:,519) = rate(:,:,519) * m(:,:)
      rate(:,:,520) = rate(:,:,520) * m(:,:)
      rate(:,:,521) = rate(:,:,521) * m(:,:)
      rate(:,:,522) = rate(:,:,522) * m(:,:)
      rate(:,:,523) = rate(:,:,523) * m(:,:)
      rate(:,:,524) = rate(:,:,524) * m(:,:)
      rate(:,:,525) = rate(:,:,525) * m(:,:)
      rate(:,:,526) = rate(:,:,526) * m(:,:)
      rate(:,:,527) = rate(:,:,527) * m(:,:)
      rate(:,:,528) = rate(:,:,528) * m(:,:)
      rate(:,:,529) = rate(:,:,529) * m(:,:)
      rate(:,:,531) = rate(:,:,531) * m(:,:)
      rate(:,:,532) = rate(:,:,532) * m(:,:)
      rate(:,:,534) = rate(:,:,534) * m(:,:)
      rate(:,:,535) = rate(:,:,535) * m(:,:)
      rate(:,:,536) = rate(:,:,536) * m(:,:)
      rate(:,:,537) = rate(:,:,537) * m(:,:)
      rate(:,:,538) = rate(:,:,538) * m(:,:)
      rate(:,:,539) = rate(:,:,539) * m(:,:)
      rate(:,:,540) = rate(:,:,540) * m(:,:)
      rate(:,:,541) = rate(:,:,541) * m(:,:)
      rate(:,:,542) = rate(:,:,542) * m(:,:)
      rate(:,:,543) = rate(:,:,543) * m(:,:)
      rate(:,:,544) = rate(:,:,544) * m(:,:)
      rate(:,:,545) = rate(:,:,545) * m(:,:)
      rate(:,:,546) = rate(:,:,546) * m(:,:)
      rate(:,:,547) = rate(:,:,547) * m(:,:)
      rate(:,:,548) = rate(:,:,548) * m(:,:)
      rate(:,:,549) = rate(:,:,549) * m(:,:)
      rate(:,:,550) = rate(:,:,550) * m(:,:)
      rate(:,:,551) = rate(:,:,551) * m(:,:)
      rate(:,:,552) = rate(:,:,552) * m(:,:)
      rate(:,:,553) = rate(:,:,553) * m(:,:)
      rate(:,:,554) = rate(:,:,554) * m(:,:)
      rate(:,:,555) = rate(:,:,555) * m(:,:)
      rate(:,:,556) = rate(:,:,556) * m(:,:)
      rate(:,:,557) = rate(:,:,557) * m(:,:)
      rate(:,:,558) = rate(:,:,558) * m(:,:)
      rate(:,:,559) = rate(:,:,559) * m(:,:)
      rate(:,:,560) = rate(:,:,560) * m(:,:)
      rate(:,:,561) = rate(:,:,561) * m(:,:)
      rate(:,:,562) = rate(:,:,562) * m(:,:)
      rate(:,:,563) = rate(:,:,563) * m(:,:)
      rate(:,:,564) = rate(:,:,564) * m(:,:)
      rate(:,:,565) = rate(:,:,565) * m(:,:)
      rate(:,:,566) = rate(:,:,566) * m(:,:)
      rate(:,:,567) = rate(:,:,567) * m(:,:)
      rate(:,:,568) = rate(:,:,568) * m(:,:)
      rate(:,:,569) = rate(:,:,569) * m(:,:)
      rate(:,:,570) = rate(:,:,570) * m(:,:)
      rate(:,:,571) = rate(:,:,571) * m(:,:)
      rate(:,:,572) = rate(:,:,572) * m(:,:)
      rate(:,:,573) = rate(:,:,573) * m(:,:)
      rate(:,:,574) = rate(:,:,574) * m(:,:)
      rate(:,:,575) = rate(:,:,575) * m(:,:)
      rate(:,:,577) = rate(:,:,577) * m(:,:)
      rate(:,:,578) = rate(:,:,578) * m(:,:)
      rate(:,:,579) = rate(:,:,579) * m(:,:)
      rate(:,:,580) = rate(:,:,580) * m(:,:)
      rate(:,:,581) = rate(:,:,581) * m(:,:)
      rate(:,:,582) = rate(:,:,582) * m(:,:)
      rate(:,:,583) = rate(:,:,583) * m(:,:)
      rate(:,:,584) = rate(:,:,584) * m(:,:)
      rate(:,:,585) = rate(:,:,585) * m(:,:)
      rate(:,:,586) = rate(:,:,586) * m(:,:)
      rate(:,:,587) = rate(:,:,587) * m(:,:)
      rate(:,:,588) = rate(:,:,588) * m(:,:)
      rate(:,:,589) = rate(:,:,589) * m(:,:)
      rate(:,:,590) = rate(:,:,590) * m(:,:)
      rate(:,:,591) = rate(:,:,591) * m(:,:)
      rate(:,:,592) = rate(:,:,592) * m(:,:)
      rate(:,:,593) = rate(:,:,593) * m(:,:)
      rate(:,:,594) = rate(:,:,594) * m(:,:)
      rate(:,:,595) = rate(:,:,595) * m(:,:)
      rate(:,:,596) = rate(:,:,596) * m(:,:)
      rate(:,:,597) = rate(:,:,597) * m(:,:)
      rate(:,:,598) = rate(:,:,598) * m(:,:)
      rate(:,:,599) = rate(:,:,599) * m(:,:)
      rate(:,:,600) = rate(:,:,600) * m(:,:)
      rate(:,:,601) = rate(:,:,601) * m(:,:)
      rate(:,:,602) = rate(:,:,602) * m(:,:)
      rate(:,:,603) = rate(:,:,603) * m(:,:)
      rate(:,:,604) = rate(:,:,604) * m(:,:)
      rate(:,:,605) = rate(:,:,605) * m(:,:)
      rate(:,:,606) = rate(:,:,606) * m(:,:)
      rate(:,:,607) = rate(:,:,607) * m(:,:)
      rate(:,:,608) = rate(:,:,608) * m(:,:)
      rate(:,:,609) = rate(:,:,609) * m(:,:)
      rate(:,:,610) = rate(:,:,610) * m(:,:)
      rate(:,:,611) = rate(:,:,611) * m(:,:)
      rate(:,:,612) = rate(:,:,612) * m(:,:)
      rate(:,:,613) = rate(:,:,613) * m(:,:)
      rate(:,:,614) = rate(:,:,614) * m(:,:)
      rate(:,:,615) = rate(:,:,615) * m(:,:)
      rate(:,:,616) = rate(:,:,616) * m(:,:)
      rate(:,:,617) = rate(:,:,617) * m(:,:)
      rate(:,:,618) = rate(:,:,618) * m(:,:)
      rate(:,:,619) = rate(:,:,619) * m(:,:)
      rate(:,:,620) = rate(:,:,620) * m(:,:)
      rate(:,:,621) = rate(:,:,621) * m(:,:)
      rate(:,:,622) = rate(:,:,622) * m(:,:)
      rate(:,:,623) = rate(:,:,623) * m(:,:)
      rate(:,:,624) = rate(:,:,624) * m(:,:)
      rate(:,:,625) = rate(:,:,625) * m(:,:)
      rate(:,:,626) = rate(:,:,626) * m(:,:)
      rate(:,:,627) = rate(:,:,627) * m(:,:)
      rate(:,:,628) = rate(:,:,628) * m(:,:)
      rate(:,:,629) = rate(:,:,629) * m(:,:)
      rate(:,:,630) = rate(:,:,630) * m(:,:)
      rate(:,:,631) = rate(:,:,631) * m(:,:)
      rate(:,:,632) = rate(:,:,632) * m(:,:)
      rate(:,:,633) = rate(:,:,633) * m(:,:)
      rate(:,:,634) = rate(:,:,634) * m(:,:)
      rate(:,:,635) = rate(:,:,635) * m(:,:)
      rate(:,:,636) = rate(:,:,636) * m(:,:)
      rate(:,:,637) = rate(:,:,637) * m(:,:)
      rate(:,:,638) = rate(:,:,638) * m(:,:)
      rate(:,:,639) = rate(:,:,639) * m(:,:)
      rate(:,:,640) = rate(:,:,640) * m(:,:)
      rate(:,:,641) = rate(:,:,641) * m(:,:)
      rate(:,:,642) = rate(:,:,642) * m(:,:)
      rate(:,:,643) = rate(:,:,643) * m(:,:)
      rate(:,:,644) = rate(:,:,644) * m(:,:)
      rate(:,:,645) = rate(:,:,645) * m(:,:)
      rate(:,:,646) = rate(:,:,646) * m(:,:)
      rate(:,:,647) = rate(:,:,647) * m(:,:)
      rate(:,:,648) = rate(:,:,648) * m(:,:)
      rate(:,:,649) = rate(:,:,649) * m(:,:)
      rate(:,:,650) = rate(:,:,650) * m(:,:)
      rate(:,:,651) = rate(:,:,651) * m(:,:)
      rate(:,:,652) = rate(:,:,652) * m(:,:)
      rate(:,:,653) = rate(:,:,653) * m(:,:)
      rate(:,:,654) = rate(:,:,654) * m(:,:)
      rate(:,:,655) = rate(:,:,655) * m(:,:)
      rate(:,:,656) = rate(:,:,656) * m(:,:)
      rate(:,:,657) = rate(:,:,657) * m(:,:)
      rate(:,:,658) = rate(:,:,658) * m(:,:)
      rate(:,:,659) = rate(:,:,659) * m(:,:)
      rate(:,:,660) = rate(:,:,660) * m(:,:)
      rate(:,:,661) = rate(:,:,661) * m(:,:)
      rate(:,:,662) = rate(:,:,662) * m(:,:)
      rate(:,:,663) = rate(:,:,663) * m(:,:)
      rate(:,:,664) = rate(:,:,664) * m(:,:)
      rate(:,:,665) = rate(:,:,665) * m(:,:)
      rate(:,:,666) = rate(:,:,666) * m(:,:)
      rate(:,:,667) = rate(:,:,667) * m(:,:)
      rate(:,:,668) = rate(:,:,668) * m(:,:)
      rate(:,:,669) = rate(:,:,669) * m(:,:)
      rate(:,:,670) = rate(:,:,670) * m(:,:)
      rate(:,:,671) = rate(:,:,671) * m(:,:)
      rate(:,:,672) = rate(:,:,672) * m(:,:)
      rate(:,:,673) = rate(:,:,673) * m(:,:)
      rate(:,:,674) = rate(:,:,674) * m(:,:)
      rate(:,:,675) = rate(:,:,675) * m(:,:)
      rate(:,:,676) = rate(:,:,676) * m(:,:)
      rate(:,:,677) = rate(:,:,677) * m(:,:)
      rate(:,:,678) = rate(:,:,678) * m(:,:)
      rate(:,:,679) = rate(:,:,679) * m(:,:)
      rate(:,:,680) = rate(:,:,680) * m(:,:)
      rate(:,:,681) = rate(:,:,681) * m(:,:)
      rate(:,:,682) = rate(:,:,682) * m(:,:)
      rate(:,:,683) = rate(:,:,683) * m(:,:)
      rate(:,:,684) = rate(:,:,684) * m(:,:)
      rate(:,:,685) = rate(:,:,685) * m(:,:)
      rate(:,:,686) = rate(:,:,686) * m(:,:)
      rate(:,:,687) = rate(:,:,687) * m(:,:)
      rate(:,:,688) = rate(:,:,688) * m(:,:)
      rate(:,:,689) = rate(:,:,689) * m(:,:)
      rate(:,:,690) = rate(:,:,690) * m(:,:)
      rate(:,:,691) = rate(:,:,691) * m(:,:)
      rate(:,:,692) = rate(:,:,692) * m(:,:)
      rate(:,:,693) = rate(:,:,693) * m(:,:)
      rate(:,:,694) = rate(:,:,694) * m(:,:)
      rate(:,:,695) = rate(:,:,695) * m(:,:)
      rate(:,:,696) = rate(:,:,696) * m(:,:)
      rate(:,:,697) = rate(:,:,697) * m(:,:)
      rate(:,:,698) = rate(:,:,698) * m(:,:)
      rate(:,:,699) = rate(:,:,699) * m(:,:)
      rate(:,:,700) = rate(:,:,700) * m(:,:)
      rate(:,:,701) = rate(:,:,701) * m(:,:)
      rate(:,:,702) = rate(:,:,702) * m(:,:)
      rate(:,:,703) = rate(:,:,703) * m(:,:)
      rate(:,:,704) = rate(:,:,704) * m(:,:)
      rate(:,:,705) = rate(:,:,705) * m(:,:)
      rate(:,:,706) = rate(:,:,706) * m(:,:)
      rate(:,:,707) = rate(:,:,707) * m(:,:)
      rate(:,:,708) = rate(:,:,708) * m(:,:)
      rate(:,:,709) = rate(:,:,709) * m(:,:)
      rate(:,:,710) = rate(:,:,710) * m(:,:)
      rate(:,:,711) = rate(:,:,711) * m(:,:)
      rate(:,:,712) = rate(:,:,712) * m(:,:)
      rate(:,:,713) = rate(:,:,713) * m(:,:)
      rate(:,:,714) = rate(:,:,714) * m(:,:)
      rate(:,:,715) = rate(:,:,715) * m(:,:)
      rate(:,:,716) = rate(:,:,716) * m(:,:)
      rate(:,:,717) = rate(:,:,717) * m(:,:)
      rate(:,:,718) = rate(:,:,718) * m(:,:)
      rate(:,:,719) = rate(:,:,719) * m(:,:)
      rate(:,:,720) = rate(:,:,720) * m(:,:)
      rate(:,:,721) = rate(:,:,721) * m(:,:)
      rate(:,:,722) = rate(:,:,722) * m(:,:)
      rate(:,:,723) = rate(:,:,723) * m(:,:)
      rate(:,:,724) = rate(:,:,724) * m(:,:)
      rate(:,:,725) = rate(:,:,725) * m(:,:)
      rate(:,:,726) = rate(:,:,726) * m(:,:)
      rate(:,:,727) = rate(:,:,727) * m(:,:)
      rate(:,:,728) = rate(:,:,728) * m(:,:)
      rate(:,:,729) = rate(:,:,729) * m(:,:)
      rate(:,:,730) = rate(:,:,730) * m(:,:)
      rate(:,:,731) = rate(:,:,731) * m(:,:)
      rate(:,:,732) = rate(:,:,732) * m(:,:)
      rate(:,:,733) = rate(:,:,733) * m(:,:)
      rate(:,:,734) = rate(:,:,734) * m(:,:)
      rate(:,:,735) = rate(:,:,735) * m(:,:)
      rate(:,:,736) = rate(:,:,736) * m(:,:)
      rate(:,:,737) = rate(:,:,737) * m(:,:)
      rate(:,:,738) = rate(:,:,738) * m(:,:)
      rate(:,:,739) = rate(:,:,739) * m(:,:)
      rate(:,:,740) = rate(:,:,740) * m(:,:)
      rate(:,:,741) = rate(:,:,741) * m(:,:)
      rate(:,:,742) = rate(:,:,742) * m(:,:)
      rate(:,:,743) = rate(:,:,743) * m(:,:)
      rate(:,:,744) = rate(:,:,744) * m(:,:)
      rate(:,:,745) = rate(:,:,745) * m(:,:)
      rate(:,:,746) = rate(:,:,746) * m(:,:)
      rate(:,:,747) = rate(:,:,747) * m(:,:)
      rate(:,:,748) = rate(:,:,748) * m(:,:)
      rate(:,:,749) = rate(:,:,749) * m(:,:)
      rate(:,:,750) = rate(:,:,750) * m(:,:)
      rate(:,:,751) = rate(:,:,751) * m(:,:)
      rate(:,:,752) = rate(:,:,752) * m(:,:)
      rate(:,:,753) = rate(:,:,753) * m(:,:)
      rate(:,:,754) = rate(:,:,754) * m(:,:)
      rate(:,:,755) = rate(:,:,755) * m(:,:)
      rate(:,:,756) = rate(:,:,756) * m(:,:)
      rate(:,:,757) = rate(:,:,757) * m(:,:)
      rate(:,:,758) = rate(:,:,758) * m(:,:)
      rate(:,:,759) = rate(:,:,759) * m(:,:)
      rate(:,:,760) = rate(:,:,760) * m(:,:)
      rate(:,:,761) = rate(:,:,761) * m(:,:)
      rate(:,:,762) = rate(:,:,762) * m(:,:)
      rate(:,:,763) = rate(:,:,763) * m(:,:)
      rate(:,:,764) = rate(:,:,764) * m(:,:)
      rate(:,:,765) = rate(:,:,765) * m(:,:)
      rate(:,:,766) = rate(:,:,766) * m(:,:)
      rate(:,:,767) = rate(:,:,767) * m(:,:)
      rate(:,:,768) = rate(:,:,768) * m(:,:)
      rate(:,:,769) = rate(:,:,769) * m(:,:)
      rate(:,:,770) = rate(:,:,770) * m(:,:)
      rate(:,:,771) = rate(:,:,771) * m(:,:)
      rate(:,:,772) = rate(:,:,772) * m(:,:)
      rate(:,:,773) = rate(:,:,773) * m(:,:)
      rate(:,:,774) = rate(:,:,774) * m(:,:)
      rate(:,:,775) = rate(:,:,775) * m(:,:)
      rate(:,:,776) = rate(:,:,776) * m(:,:)
      rate(:,:,777) = rate(:,:,777) * m(:,:)
      rate(:,:,778) = rate(:,:,778) * m(:,:)
      rate(:,:,779) = rate(:,:,779) * m(:,:)
      rate(:,:,780) = rate(:,:,780) * m(:,:)
      rate(:,:,781) = rate(:,:,781) * m(:,:)
      rate(:,:,782) = rate(:,:,782) * m(:,:)
      rate(:,:,783) = rate(:,:,783) * m(:,:)
      rate(:,:,784) = rate(:,:,784) * m(:,:)
      rate(:,:,785) = rate(:,:,785) * m(:,:)
      rate(:,:,786) = rate(:,:,786) * m(:,:)
      rate(:,:,787) = rate(:,:,787) * m(:,:)
      rate(:,:,788) = rate(:,:,788) * m(:,:)
      rate(:,:,789) = rate(:,:,789) * m(:,:)
      rate(:,:,790) = rate(:,:,790) * m(:,:)
      rate(:,:,794) = rate(:,:,794) * m(:,:)
      rate(:,:,795) = rate(:,:,795) * m(:,:)
      rate(:,:,796) = rate(:,:,796) * m(:,:)
      rate(:,:,797) = rate(:,:,797) * m(:,:)
      rate(:,:,799) = rate(:,:,799) * m(:,:)
      rate(:,:,800) = rate(:,:,800) * m(:,:)
      rate(:,:,801) = rate(:,:,801) * m(:,:)
      rate(:,:,802) = rate(:,:,802) * m(:,:)
      rate(:,:,803) = rate(:,:,803) * m(:,:)
      rate(:,:,805) = rate(:,:,805) * m(:,:)
      rate(:,:,806) = rate(:,:,806) * m(:,:)
      rate(:,:,807) = rate(:,:,807) * m(:,:)
      rate(:,:,808) = rate(:,:,808) * m(:,:)
      rate(:,:,809) = rate(:,:,809) * m(:,:)
      rate(:,:,810) = rate(:,:,810) * m(:,:)
      rate(:,:,811) = rate(:,:,811) * m(:,:)
      rate(:,:,842) = rate(:,:,842) * m(:,:)
      rate(:,:,843) = rate(:,:,843) * m(:,:)
      rate(:,:,844) = rate(:,:,844) * m(:,:)
      rate(:,:,845) = rate(:,:,845) * m(:,:)
      rate(:,:,846) = rate(:,:,846) * m(:,:)
      rate(:,:,847) = rate(:,:,847) * m(:,:)
      rate(:,:,848) = rate(:,:,848) * m(:,:)
      rate(:,:,849) = rate(:,:,849) * m(:,:)
      rate(:,:,850) = rate(:,:,850) * m(:,:)
      rate(:,:,851) = rate(:,:,851) * m(:,:)
      rate(:,:,852) = rate(:,:,852) * m(:,:)
      rate(:,:,853) = rate(:,:,853) * m(:,:)
      rate(:,:,854) = rate(:,:,854) * m(:,:)
      rate(:,:,855) = rate(:,:,855) * m(:,:)
      rate(:,:,856) = rate(:,:,856) * m(:,:)
      rate(:,:,857) = rate(:,:,857) * m(:,:)
      rate(:,:,858) = rate(:,:,858) * m(:,:)
      rate(:,:,859) = rate(:,:,859) * m(:,:)
      rate(:,:,860) = rate(:,:,860) * m(:,:)
      rate(:,:,861) = rate(:,:,861) * m(:,:)
      rate(:,:,862) = rate(:,:,862) * m(:,:)
      rate(:,:,863) = rate(:,:,863) * m(:,:)
      rate(:,:,864) = rate(:,:,864) * m(:,:)
      rate(:,:,865) = rate(:,:,865) * m(:,:)
      rate(:,:,866) = rate(:,:,866) * m(:,:)
      rate(:,:,867) = rate(:,:,867) * m(:,:)
      rate(:,:,868) = rate(:,:,868) * m(:,:)
      rate(:,:,869) = rate(:,:,869) * m(:,:)
      rate(:,:,870) = rate(:,:,870) * m(:,:)
      rate(:,:,871) = rate(:,:,871) * m(:,:)
      rate(:,:,872) = rate(:,:,872) * m(:,:)
      rate(:,:,873) = rate(:,:,873) * m(:,:)
      rate(:,:,874) = rate(:,:,874) * m(:,:)
      rate(:,:,875) = rate(:,:,875) * m(:,:)
      rate(:,:,876) = rate(:,:,876) * m(:,:)
      rate(:,:,877) = rate(:,:,877) * m(:,:)
      rate(:,:,878) = rate(:,:,878) * m(:,:)
      rate(:,:,879) = rate(:,:,879) * m(:,:)
      rate(:,:,880) = rate(:,:,880) * m(:,:)
      rate(:,:,881) = rate(:,:,881) * m(:,:)
      rate(:,:,882) = rate(:,:,882) * m(:,:)
      rate(:,:,883) = rate(:,:,883) * m(:,:)
      rate(:,:,884) = rate(:,:,884) * m(:,:)
      rate(:,:,886) = rate(:,:,886) * m(:,:)
      rate(:,:,891) = rate(:,:,891) * m(:,:)
      rate(:,:,892) = rate(:,:,892) * m(:,:)
      rate(:,:,893) = rate(:,:,893) * m(:,:)
      rate(:,:,896) = rate(:,:,896) * m(:,:)
      rate(:,:,897) = rate(:,:,897) * m(:,:)
      rate(:,:,898) = rate(:,:,898) * m(:,:)
      rate(:,:,901) = rate(:,:,901) * m(:,:)
      end subroutine adjrxt
      end module mo_adjrxt
